home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
odbcall.zip
/
DEMO.ZIP
/
DEMO1.DFM
/
DEMO1.txt
Wrap
Text File
|
1995-08-01
|
13KB
|
374 lines
object Form1: TForm1
Left = 204
Top = 103
Width = 478
Height = 315
Caption = 'Form1'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 96
TextHeight = 15
object Panel1: TPanel
Left = 0
Top = 135
Width = 466
Height = 149
Align = alClient
TabOrder = 0
object Panel2: TPanel
Left = 1
Top = 1
Width = 64
Height = 147
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object Label4: TLabel
Left = 14
Top = 6
Width = 36
Height = 15
Caption = 'Notes:'
end
end
object ODBCMemo1: TODBCMemo
Left = 65
Top = 1
Width = 400
Height = 147
Align = alClient
ODBCField = 'NOTES'
ODBCSource = DemoQuery
TabOrder = 1
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 466
Height = 135
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 27
Top = 18
Width = 23
Height = 15
Caption = 'Key:'
end
object Label2: TLabel
Left = 22
Top = 47
Width = 30
Height = 15
Caption = 'Char:'
end
object Label3: TLabel
Left = 22
Top = 76
Width = 29
Height = 15
Caption = 'Date:'
end
object SpeedButton1: TSpeedButton
Left = 248
Top = 9
Width = 25
Height = 25
Hint = 'Next'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 223
Top = 9
Width = 25
Height = 25
Hint = 'Prior'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 198
Top = 9
Width = 25
Height = 25
Hint = 'First'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
333333777777777F33333330B00000003333337F7777777F3333333000000000
333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000
333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB
03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B
03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03
3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03
333333333377F7F33333333333330F03333333333337F7F33333333333330B03
33333333333737333333333333333033333333333333733333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 273
Top = 9
Width = 25
Height = 25
Hint = 'Last'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
33333333373F33333333333330B03333333333337F7F33333333333330F03333
333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
03333337777777F7F333333300000000033333377777777733330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 273
Top = 33
Width = 25
Height = 25
Hint = 'Update'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F73300999999999003337777777777777330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 198
Top = 33
Width = 25
Height = 25
Hint = 'Delete'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F55550005555555055555777555555575550000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton6Click
end
object SpeedButton7: TSpeedButton
Left = 223
Top = 33
Width = 25
Height = 25
Hint = 'Insert'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton7Click
end
object Label5: TLabel
Left = 201
Top = 76
Width = 62
Height = 15
Caption = 'Record No:'
end
object SpeedButton8: TSpeedButton
Left = 248
Top = 33
Width = 25
Height = 25
Hint = 'Go to record'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton8Click
end
object Button1: TButton
Left = 367
Top = 6
Width = 89
Height = 33
Caption = 'Create Table'
TabOrder = 0
TabStop = False
OnClick = Button1Click
end
object Edit4: TEdit
Left = 278
Top = 72
Width = 61
Height = 22
TabOrder = 1
Text = '0'
end
object ODBCEdit1: TODBCEdit
Left = 68
Top = 14
Width = 121
Height = 22
ODBCField = 'MYKEY'
ODBCSource = DemoQuery
TabOrder = 2
end
object ODBCEdit2: TODBCEdit
Left = 68
Top = 43
Width = 121
Height = 22
ODBCField = 'CHARFIELD'
ODBCSource = DemoQuery
TabOrder = 3
end
object ODBCEdit3: TODBCEdit
Left = 68
Top = 72
Width = 121
Height = 22
ODBCField = 'DATEFIELD'
ODBCSource = DemoQuery
TabOrder = 4
end
end
object Connection: TODBCCon
ConnectionMethod = cmConnect
DataSource = 'InterBase'
Left = 377
Top = 78
end
object DemoQuery: TODBCQuery
Active = False
Connection = 'InterBase'
EditFields.Strings = (
'CHARFIELD'
'DATEFIELD'
'MYKEY'
'NOTES')
KeyFields.Strings = (
'MYKEY')
SQL.Strings = (
'Select * from DemoTable where MyKey < 90 '
'union'
'Select * from DemoTable where MyKey > 90'
'')
UpdateTable = 'DemoTable'
Left = 412
Top = 78
end
object CreateTable: TODBCQuery
Active = False
Connection = 'InterBase'
SQL.Strings = (
'create table DemoTable('
'MyKey integer not null,'
'CharField Char(50),'
'DateField Date,'
'Notes Blob sub_type Text,'
'primary key(MyKey))')
Left = 377
Top = 44
end
object InsertValues: TODBCQuery
Active = False
Connection = 'InterBase'
Params.Param = {
030000000900084B657956616C756504000A000000000001007C0000000A0009
4368617256616C756501003200000000000100001B70000100006C2C1B68001A
1724981A1724000000002000CC003B41D7250C1A17241D5BD7250C1A17240C1A
1724C20A00000A00094461746556616C756509000A00000000000100B8110800
0000}
SQL.Strings = (
'Insert into DemoTable (MyKey, CharField, DateField) values'
'(?, ?, ?)')
Left = 411
Top = 43
end
end